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Agosto 1983 Micro Bits 


Editorial 


Mais uma vez conseguimos estourar o 

nosso cronograma! Em vez desta ediçao 4 sair em 
. Ed “ f Ed . 

meados de julho, so foi possivel lança-la no fi- 


nal de agosto! 


A razao desta demora foi o aumento 
significativo da "papelada! necessaria para a 
administração do jornal e clube. Com um início 
meio fraco, fomos apanhados de surpresa com o au- 
mento de interessados nestes ultimos dois meses . 
Sobrou-nos pouco tempo para o que realmente nos 
interessa - escrever programas e artigos para pu- 


blicação. 


Estamos em fase de negociação com 
um possivel "patrocinador! (nao um fabricante)que, 
se der certo, resultara numa modificação - para 
melhor - deste modesto informativo. As primeiras 
mudanças previstas seriam, obviamente, uma regu- 
larizaçao na publicação de MICRO BITS,melhor dis- 
tribuiçao, apresentação e divulgação. Esperamos 
dar mais notícias na proxima edição sobre esse as- 


sunto. 


Embora sem capa colorida, nem pa- 
pel bonito, etc., os que recebem MICRO BITS  en- 
tendem - o que falta em apresentação é compensado 
pelo conteudo. De poucas paginas no início - "pe- 
queno e xerocado!! nos termos de Alda Surerus Cam- 
pos, editora de MICRO SISTEMAS - crescemos a cada 
edição. Nº 1 havia somente 8 paginas, Nº 2 com 16, 
Nº 3 - 20, ate Nº 4 com 28 paginas. E pretendemos 


continuar crescendo. 


Nao somos a unica publicaçao espe- 


cializada em microcomputadores compativeis com o 


SINCLAIR ZX81 - ja existe o MICROHOBBY, publicado 
pela MICROMEGA, e logo sera editada uma revista 
para os usuarios do CP-200 pela PROLOGICA (parece 
que esta ultima será chamada 'BITS! - coinciden- 
cia, nao?). Portanto, o MICRO BITS é a única sem 
vínculos com os fabricantes, e nosso principal in- 
teresse sera sempre o usuário e nao o de promover 
produtos. Podemos elogiar ou criticar os micros , 
perifericos e software. Se achamos bom, diremos. 
Se consideramos um produto ruim ou que pode ser 
melhorado, tambem diremos. Perdemos em termos de 
apoio financeiro e administrativo, mas com este 


cf. . . rs . 
sacrificio conseguiremos independencia que e um 


dos nossos objetivos. 


Quem leu o artigo "Abaixo a Pira- 
taria!!! no MICRO BITS Nº 2 conhece nossa desapro- 
vação quanto ao roubo de software. Poderíamos nos 
enriquecer facilmente tomando o mesmo rumo de 
muitas "software houses!! nacionais que copiam pro- 
gramas estrangeiros a vontade. Entao perguntamos 
- Qual o incentivo para se desenvolver software 
nacional? Nenhum, claro! (O mesmo se aplica no ca- 
so de hardware, e abordaremos mais sobre este as- 
sunto em outra ediçao). Preferimos ajudar e pro- 
mover aqueles que tentam produzir software de qua- 
lidade aqui no Brasil, se nao ficaremos sempre de- 
pendentes do software "la de fora!!, simplesmente 
ixerocando!! tudo que existe. (A razao de voltar- 
mos a mencionar pirataria novamente e que recebe- 
mos uma carta de Rodolfo Eduardo Hradec, com uma 
copia da pagina 54 de Nova Eletronica de junho, 
1982. Esta traz a listagem do programa !! Tiro ao 
Alvo! que publicamos no MICRO BITS Nº 1, pensando 


que fosse da autoria de Roberto Carlos Grings!) 


Todos os direitos de reprodução de MICRO BITS estão reservados, e qualquer reprodução com fins comerciais 


ou didaticos so podera ser feita mediante autorização previa. 
Us artigos e cartas assinados sao da responsabilidadedos autores, as opinioes nao necessariamente coincl- 


aindo com as desta publicação. 
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Armazenar a Imagem numa Variável 


Bernhard Wolfgang Schôn 


Muitas vezes existe a necessidade 
(ou vontade) de guardar a imagem apresentada na 
tela numa variável, mas infelizmente não existe 
tal comando nos micros NE, TK, e CP 200. Todavia, 


apresento duas maneiras de conseguir tal efeito. 


Para uma demonstração melhor, digi- 
te o programa a seguir, publicado numa revista 


estrangeira há mais ou menos um ano : 


16 CLS 
15 RAND 
2) LET €=32 
30 LET A=31 
4P LET B=42 
Só PLOT A,B 
6) PLOT C,B 
7) LET Z= 10DP* INT(RND*3 + 1) 
8) GOSUB 7 
9) IF B<= 6 OR AD= 6) OR AL= 2 THEN 
STOP 
10f GOTO SP 
10DP LET A=A+1 
101) LET C=C-1 
102) RETURN 
20WÓ LET A=A-l 
2Ó1f LET C=C+l 
2020 RETURN 
300) LET B=B-l1 
3016 RETURN 


Ao rodar o programa acima, este 
desenha na tela figuras simétricas aleatórias.Va- 
mos ver como podemos ''quardar!! a imagem então 


Para isto altere a linha 9Ê para : 


9) IFB<=-60RAD= 6] OR A<=2 THEN 
GOTO sHdp 


e adicione 


sHpp FAST 

add DIM I$(704) 

s$h2f FORA = À TO 21 

nd3f FOR B = 1 TO 32 

sap LET I$(B+32%A)= CHR$ PEEK (PEEK 16396 
+ 256* PEEK 16397 + B + 33%A) 
“Sp NEXT B 

Lp6p NEXT A 

47 SLONW 

spBp cLS 

“Hof PRINT I$ 


Pronto. À imagem esta contida na 
variavel (string) I$. Modificando a letra I por 
qualquer outra, podem ser então armazenadas até 


26 imagens diferentes. Com o comando 
PRINT I$(x TO n) 


onde x é um número maior que f e menor que 7/4, 
e n umnumero maior que x, mas menor que 7f5,pode- 


se colocar na tela a imagem parcialmente. 


A rotina em BASIC, apesar de tra- 
balhar em FAST, leva bastante tempo para ser com- 
pletada. Para quem quer reproduzir esta rotina 
em linguagem de maquina, que leva menos de 1 se- 
gundo para executa-la toda (mesmo em SLOW), vem 


aqui o procedimento correspondente: 


1 REM (coloque aqui 74 caracteres quaisquer) 

900) LET A-=16514 

901) LET AS="PICIH22AIC4PPIZ21C4PAT2ALALHÃÕIZ2 
LALPAT2AL4LPÁI2214 4 PATEBZAL4L PED4ZEDBÁZAL4 
40?B368001C3/2A7ED42364E2336CH23360223EB2A 
PCLHZI3PBIGCSPIZAAPEDBÁZICIIPF6CI9! 

902) POKE A,16*(CODE A$-28)+CODE A$(2)-28 

903) LET A=A+1 

904) LET A$=A$(3 TO) 

905f GOTO 9026 
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Antes de rodar este programa, con- 
fira cuidadosamente o conteudo da variavel A$,pa- 
ra que a rotina funcione perfeitamente. Tecle a- 
gora RUN 9H0f. O programa para com a indicação 
3/9020. Delete agora as linhas 9HPP ate 905) |, 
pois nao necessitamos mais este programa. Um LIST 
da linha 1 demonstra que aconteceu "alguma coisa! 
com os 74 caracteres colocados anteriormente. Nao 
se preocupe, isto e apenas a nova rotina em lin- 
guagem de maquina, pronta para ser usada a qual- 


quer momento. 


Cada vez, quando num programa apa- 


recer "RAND USR 16514!!, o conteudo atual da -tela 


sera armazenado na variavel (string) I$. Para o 
nosso programa demonstrativo, a alteração da linha 


9Ó seria esta: 


9) IF B<= 6 OR A>= 6] OR A<= 2 THEN GOTO 
“pop 


e adicionamos 


“ppp RAND USR 16514 
4Ó1B STOP 


Para alterar a letra da variavel ; 
para uma outra qualquer, use "POKE 16552,n!!, onde 
o numero n representa a letra desejada de acordo 
com a tabela a seguir : 


Para armazenar a tela em POKE 16562, 


AS 7) 
B$ 71 
c$ 72 
D$ 73 
ES 74 
74 95 


Vamos supor que a variavel I$ ja 
foi usada anteriormente. Rodando agora o programa 
em linguagem de maquina (use GOTO 1f e não RUN) o 
que vai acontecer? Por incrivel que pareça, tere- 
mos dois (2) I$ na memoria do computador! Veja 


você mesmo, digitando PRINT I$. Sera mostrado na 


tela apenas o conteudo do I$ original. Onde ficou 


a imagem? 


E necessario cancelar a primeira 


variavel I$ com : 
LET I$ =!!! (string vazio) 


e digitando PRINT I$ novamente, teremos acesso ao 
segundo I$, isto é , a imagem armazenada. Desta 
forma, podemos ter na memória, alem dos 26 strings 
usuais, uma infinidade de strings indiretos, de 2 
ou mais variaveis iguais, a sua disposiçao.Sempre, 
quando se quer ter acesso ao proximo string, deve- 


se cancelar o atual com o comando direto : 
LET x$ - HH 


Finalizando, para quem esta fami- 
liarizado coma linguagem de maquina, um estudo do 


funcionamento da rotina aplicada: 


LD BC,707 g1c3d2 BC contem o comprimento 

LD HL,(STKEND)  ZALC4G da tela mais 3 carac. 

ADD HL,BC 09 

LD (STKEND),HL  221C4f define o novo endereço 
do STKBOT 

AND A A7 

LD HL, (STKBOT) Z2ALA4f 

ADD HL,BC Óg 

LD (STKBOT),HL  221A44 define o novo endereço 
do STKBOT 

AND À A? 

LD HL,(E-LINE) 2Al44 6 

ADD HL,BC bg 

LDO (E-LINE),HL 221446 define o novo endereço 
do E-LINE 

AND À A? 

EX DE,HL EB 

LD HL,(E-LINE)  2AlI44p faz espaço na memoria 

SBC HL,BC ED42 para o novo string 

LDIR EDBP 

LD HL,(E-LINE) 2Al44 

DEC HL 2B 

LO (HL),128 3686 define o ultimo byte na 

LD BC,707 016302 area de variaveis 

AND À A7 

SBC HL,BC ED42 

LO (HL),78 364E define o string como I$ 
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INC HL 23 LO 8,22 0616 variaveis 


LO (HL),192 36C% define o comprimento do PUSH BC cs 
string (704) LD BC,32 prZpop 
INC HL 23 LDIR EDBA 
LO (HL),2 3692 INC HL 23 
INC HL 2 POP BC Cl 
EX DE,HL EB DJNZ ,-9 10F6 
LD HL,(D-FILE)  ZAFC4O transfere o conteudo da RET (9 retorne ao BASIC 
INC HL 23 tela para a area das 





CLUBES 


Organize um Clube de microcomputadores compativeis * PORTO ALEGRE - RONALDO CARDOZO LAGES, R. Cel. 
com o Sinclair ZX81 no seu bairro ou cidade, para Fernando Machado 311/36, Ed. Presidente, 90000- 
que os participantes possam trocar ideias,progra- Porto Alegre - RS. Tel: 25-0386 (recados). 

mas, etc., ... Envie-nos o seu nome, endereço € 

telefone (se tiver) para ser incluído nesta colu- * SÃO PAULO (IPIRANGA) - ARI TENÓRIO DE ALENCAR, 
na. R. Gaspar Fernandes 54, Vila Monumenta, 01549 - 


Sao Paulo - SP. Tel: (011) 273-8742 


FORMULAS PARA Faci- Mk 
LITAR SEUS CSLOULOS SRA) 


A=B+ce(c) us 


Aluísio F. do Valle 
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Testando o TIG-LOADER 





O TIG-LOADER, conforme o panfleto 
da TIGRE COMERCIAL LTDA., possibilita : 
tr 1. A localização do otimo volume do grava- 
dor atraves de 2 LED!'s indicadores, fa- 
cilitando a operação LOAD. 

2. DUPLICAR qualquer programa, mesmo aque- 
les "fechados!!, que nao admitem as ins- 
truçoes SAVE e LIST. 

3. Carregar (LOAD) e duplicar  simultanea- 
mente. 

4. Gravar (SAVE) com 2 gravadores ao mesmo 
tempo. 

5. Monitorar as operações LOAD, SAVE ou DU- 
PLICAÇÃO atraves de fone, sem manipular 
fios, plugs ou o controle de volume. 

6. Filtrar as interferências eletricas de 
baixa frequencia, que são a causa da 
maioria dos problemas de LOAD/SAVE. !! 


Recebi um TIG-LOADER ha pouco tem- 
po, e como era necessário terminar esta ediçao de 
MICRO BITS com a maior urgência, não foi possivel 
testa-lo adequadamente. A unica função verificada 
(tambem muito superficialmente) foi a operação 
LOAD. 


LOAD 

Para este teste usei duas fitas 
gravadas de qualidades bem diferentes. À primeira 
era o TK XADREZ II da Microdigital, a pior fita 


comercial que ja encontrei; a outra, um programa 


gravado com meu proprio TK82-C e gravador NATIO- 
NAL RQ 2222 MA, que nunca apresentou problemas.Fo- 
ram utilizados 2 micros - um TKBS (o mesmo usado 
na analise "TK85 da Microdigital - Vale a Pena?!) 
e um TK8B2-C. A razao de utilizar estes dois mode- 
los e que ha uma grande diferença nos circuitos 
do LOAD entre os dois. Um programa que entra com 
volume 7,5 no TK82-C so precisa um nivel de 3,5 
no TK85, sem falar no fato de que o TK85 aceita 


variações bem maiores nas gravaçoes. 


Os testes foram bem simples. Colo- 
quei uma das fitas no gravador, ajustei o volume 
para um nível determinado, digitei LOAD "! no mi- 
cro, e inicei a reprodução. Foi verificado se o 
programa carregou no micro ou nao, anotado o nivel 
de gravação e o resultado, e a mesma sequencia re- 
petida para varios valores de volume. As duas ta- 
belas mostram os resultados - Tabela 1 com os da- 
dos do programa TK XADREZ II, a segunda, com 0 


meu programa. 


Programa TK XADREZ II 





TK85 TK82-C 
sem TIG com TIG| sem TIG com TIG 
minimo 3,0 2,5 [mínimo - - 


maximo 4,0 4,0 |maximo - 


sem ie e 


Tabela 1 


RALIS SDS O O a RAS AS ES ED TI SN OS TETE, De A É em A 2 tiragem API TIS IR TILES CAICOS SI ED SDL DOT e q q e 
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Programa 2 


TK85 TK82-C 





sem TIG com TIG | sem TIG com TIG 
minimo 2,0 2.0 | minimo Tao 8,5 


maximo 7.5 À vd | maximo 10,0 10,0 


ST Tee 


Tabela 2 


Como Interpretar as Tabelas 

Na tabela 1, o programa TK XADREZ 
II foi carregado com sucesso usando um nível mi- 
nimo de 3,0 e maximo de 4,0 sem o TIG-LOADER.Quer 
dizer, usando volumes entre 3,0 e 4,0 este  pro- 
grama entra no micro. Com volume menor que 3,0 ou 
maior que 4,0 nao funciona. Com o TIG-LOADER, hou- 
ve um aumento da faixa de aceitação, o minimo 
baixando de 3,0 para 2,5. Como o TIG-LOADER nao 
possui nenhuma fonte de alimentação, a tendencia 
esperada era que ambos os niveis (mínimo e maximo) 
fossem maiores, ja que o equipamento deve consu- 
mir um pouco de energia que deveria ser compensada 
com o aumento do volume. Isto aconteceu no caso 
do TK82-C (veja adiante), mas nao posso explicar 


este fato inesperado com o TK85! 


No caso do TK82-C, nao foi pos- 
sível carregar o programa na memoria com qualquer 
nivel de volume, com ou sem o TIG-LOADER. As 
poucas vezes que consegui carregar este programa 
no passado (4 vezes em mais de 100 tentativas)foi 
com um nível de 8,75 (sim, com uma precisao micros 
copica !). Como isto é bem maior que o esperado 
(7,5 seria o normal), e o fato que d. TIG-LOADER 
consome um pouco da energia, so poderia esperar 


conseguir carrega-lo com um volume superior a 


9,75. Como o maximo volume do gravador e 10, isto 
nao deixa nenhuma folga para ajustar. De fato, u- 
sando um volume de 10, o programa foi quase ate 0 
final (faltou uma unidade de contagem no conta- 
dor), e se houvesse um volume de ll ou maior,pro- 
vavelmente seria bem sucedido. À falha da grava- 
ção foi confirmada atraves dos 2 LED's (com o RQ- 
2222 MA so LED 2 acende) - na ultima virada do 
contador o LED 2 apagou, demonstrando que o volu- 


me era insuficiente. 


Na Tabela 2, usando um programa 
bem gravado, a faixa de aceitação no TK85 era de 
2,0 a 7,5 (incrível!) mesmo com ou sem TIB- 
LOADER. Com o TK82-C, o nível minimo aumentou (co- 


mo esperado) de 7,5 para 8,5. 


Conclusao 


No TK85, usando uma pessima grava- 
ção, a faixa de aceitação aumentou em 50% com o 
TIG-LOADER. Com uma gravação normal, não houve ne- 


nhuma diferença. 


No TK82-C (para o qual este equi- 
pamento foi projetado inicialmente) nao foi pos- 
sível carregar o programa TK XADREZ II - a razao, 
ao meu ver,e porque o nivel do sinal da gravação é 
extremamente baixo. Se for possivel uma copia des- 
te programa com uma gravação melhor, talvez.o re- 
sultado seja outro. Utilizando um programa grava- 
do normalmente, o mínimo aceitavel no controle de 


volume aumentou, como esperado. 


Como mencionado no início deste ar- 
tigo, nao foi possivel fazer uma analise detalhada 
deste equipamento. Pretendo concluir os testes 
numa futura ediçao de MICRO BITS, devendo entrar 
em contato com o TIGRE COMERCIAL para discutir os 


resultados obtidos. 





Edições Avulsas 





Brasil Exterior 
Nº 1 Cr$300 US$2,00 
Nº 2 Cr$450 US$3,00 
Nº 3 Cr$500 US$3,00 


Enviem seus pedidos para :- 


MICRO BITS INFORMÁTICA LTDA. 
Caixa Postal 12.464 
04798 - SÃO PAULO - SP. 
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O TK85 da MICRODIGITAL - Vale a Pena * 


Ha meses a MICRODIGITAL começou a 
anunciar o seu novo modelo de microcomputador  - 
o TK85. Destacaram-se os seguintes melhoramentos 


em relaçao ao TK82-C :- 


1. O teclado e "tipo maquina de escrever!! 
2. Possui 6 funçoes a mais - DLOAD /DSAVE / 
DVERIFY/HI-LOAD/HI-SAVE/HI-VERIFY , com 
duas velocidades de gravação - 300 e 4200 
bauds. 
3. Ha um gerador de som - opcional 
O primeiro contato que tive como 
TK85 foi na loja Imares de São Paulo, onde havia 
acabado de chegar alguns exemplares. Destacou-se 
imediatamente o design, bem mais moderno, compara- 
do com o TK82-C, lembrando muito o ZX SPECTRUM 
Tambem o teclado parecia bem mais comodo para se 
usar - com teclas verdadeiras em vez da membrana 


tipo "touch!!. 


Decepcionei-me um pouco com o te- 
clado desta maquina na Imares, pois precisava usar 
bastante pressao para digitar um caracter. Nao 
seria justo compara-lo ao de uma maquina de  es- 
crever. Digitando uma tecla desta ultima, pode- 
se ter certeza que o caracter sera impresso na 
folha colocada dentro da maquina. Nao pode afirmar 
a mesma coisa em relação as do TK85, porque embo- 
ra a tecla ceda sensivelmente, nem sempre o  ca- 
racter digitado aparece na tela. Condenar o Tk85 
pela deficiencia deste unico exemplar seria  in- 
justo. Resolvi, entao, testar outros exemplares 
para confirmar ou nao este defeito.Posteriormente 
consegui utilizar duas maquinas diferentes e não 
tive nenhum problema com elas, com a exceção de 
que algumas teclas as vezes não voltavam as suas 


posiçoes normais apos serem pressionadas. 


- Sera que isto ocorre porque sao 

É - dá 

novas , ou sera que pioram com o uso? So fazendo 
Ea = « 4 

uma analise bem mais demorada seria possivel res- 


ponder a esta pergunta. 


a 


Ao emprestar uma maquina de um a- 
migo (posso garantir que e da linha de produção 


normal e nao uma ''especial'! feita para testes pe- 


la MICRODIGITAL) eu pretendia experimentar as fun- 
çoes especiais usando equipamento o menos sofis- 
ticado possível. Nao adianta muito ter estas fun- 
çoes se necessita comprar fitas cassettes e gra- 
vador importados. Embora o manual aconselhe a uti- 


lização de fitas de baixo ruido com gravadores de 


boa relação sinal/ruido, utilizei um gravador 
portatil comum - o NATIONAL RQ-2222 MA, e fitas 
SCOTCH DYNARANGE e SCOTCH SD. 
As Novas Funções 

De posse da maquina, a primeira 
pergunta foi - Onde estao estas novas funções ? 
O panfleto lista DLOAD, .... , HI-VERIFY como: 
"funçoes exclusivas do TKB5!!. Mas os caracteres 


e funções no teclado do TK85 sao exatamente iguais 


ao TK82-C. Entao o DLOAD, etc. .... ? 


Lendo o manual que acompanha o mi- 

. so f 
cro, a explicaçao pode ser encontrada no capitulo 
29 - "FUNÇÕES ESPECIAIS DE ARMAZENAMENTO!!. Em vez 
de ter "DLOAD!, "HI-SAVE", 


clas,e necessario usar a funçao USR. Assim, fiz 


- gravado nas  te- 


uma tabela com as funçoes e como chama-las :- 


HISAVE - RAND USR 8405 
HIVERIFY - RAND USR 8539 
HILOAD - RAND USR 8630 
DSAVE - LET CC = USR 8288 
DVERIFY - LET CC = USR 9816 
DL OAD - LET CC = USR 8305 


Alem destas 6 ha mais duas funções 


descritas numa folha solta incluída no manual :- 


PRINT USR 9008 
PRINT USR 9189 


DHSAVE - 
DHLOAD - 


a) 
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- Para que servem estes 8 comandos 


novos? 


O HISAVE e HILOAD correspondem aos 
SAVE e LOAD normais, so que a velocidade de gra- 
vação e 4200 bps comparada a 300 bps! Assim um 
programa que ocupa completamente 16K de memoria 
pode ser armazenado em 30 segundos, e nao mais de 


6 minutos, como ocorre no TK82-C! 


O HIVERIFY nao possui um comando 
equivalente no TK8B2-C. É usado para comparar 0 
programa gravado em fita com o conteudo da memo- 
ria - caso nao seja gravado bem, existem falhas 
na camada magnética da fita, etc. .... , a mensa- 
gem "ERRO!! aparece na tela. Se a gravação for bem 


sucedida a mensagem "OK!! aparece. 


DLOAD, DSAVE e DVERIFY são funçoes 
de 1/0 (Entrada/Saida de dados). Os dados usados 
pelo programa podem ser gravados em fita separa- 
damente do programa. Uma das maiores deficiencias 
do 7X-81 (TKB2-C /CP 200 /NE-Z8000) e o fato que 
o programa e os dados sao inseperáveis (veja Como 
Criar um Cadastro!',pagina 10, MICRO BITS Nº 2 ). 
Então estes comandos oferecem inumeras possibili- 


dades (ver adiante) ! 


Resta somente descrever os coman- 
dos DHSAVE e DHLOAD. Sao equivalentes aos  DSAVE 
e DLOAD (que usam gravações de 300 bps), mas a 
4200 bps. Não ha um "DHVERIFY!! equivalente ao D- 
VERIFY. 


Testando as Funções 


Resolvi concentrar nas funçoes de 
alta velocidade - se todos funcionam, nao deveria 
ter nenhum problema com as tres funções  DLOAD, 
DSAVE e DVERIFY. 


Carreguei o programa "CADASTRO", 
que ocupa quase exatamente 16K de memoria. Para 
armazenar em fita usando HISAVE, o manual deixa 
bem claro que o gravador deve estar ligado alguns 
segundos antes de pressionar o NEWLINE. Isto e 
necessario porque os 5 segundos entre digitando o 


NEWLINE e início da gravação no TK82-C nao existe 


neste caso. Ao pressionar NEWLINE o micro começa 


a enviar o programa imediatamente para o gravador. 


Assim, com uma fita SCOTCH | DYNA- 
RANGE carregada no gravador National RQ-2222 MA, 
comecei a gravação alguns segundos antes de digi- 


tar NEWLINE depois do comando : 
RAND USR 8405 


Apos o NEWLINE a tela mostrou uma 


imagem bem diferente ao do SAVE normal. As linhas 
grossas agora eram bem finas, e o-som do alto fa- 


lante da TV era mais agudo. 


Com uma rapidez espantosa (30 se- 
gundos) terminou a gravação. Repeti a operação 
mais duas vezes para ter tres copias do programa 


en fita. 


Agora o teste! Limpel a memoria 
com NEW, voltei a fita para o início, e digitei 
o HILOAD - RAND USR 8530. Nao houve nenhum pro- 
blema. As três copias eram perfeitas. (Quem leu 
o artigo "BENCHMARK TKB2-C e TK85" no MICRO MUNDO 
de junho 83 viu que eles nao conseguiram utilizar 
estas funções - a causa provavelmente foi uma 


falha no TKB5 que eles experimentaram). 


Agora o teste mais importante ( e 
mais útil para mim) era com DHSAVE e DHLOAD. À u- 
tilização destes comandos parecia um pouco | com- 
plicada no manual, mas apos duas tentativas con- 


segui domina-las. 


O teste que quis fazer era trans- 
formar um cadastro de 220 records de 2 numeros de 
referencia e um nome, totalizando 35 bytes em ca- 
da record, numa forma mais compacta - um numero 
de referencia e um nome, com um record de 27 by- 
tes. O segundo formato daria para gravar 310 no- 
mes em 16K, e seria melhor para meu uso pessoal 
Modificando o programa era facil - aquele usando 
os records de 35 bytes foi transformado inicial- 
mente do programa CADASTRO com records de 105 by- 
tes em menos de uma hora, e este por sua vez, Se 
transformou no terceiro de 27 bytes por record em 
meia hora. O problema seria a digitação dos dados. 


Com o programa modificado, so poderia utiliza-lo 


a À 
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depois de RUN que apagaria todos os dados. Para 


digitar 220 nomes novamente iria demorar horas! 
A solução era esta :- 


- Modificar o '"'menu!! do cadastro 
para aceitar uma nova opção - "6 FUNCOES HISPEED!! 
- e incluir as linhas : 


700D REM HISPEED 
7Ó1p CLS 
7026 PRINT "ESCOLHE A FUNCAO!! 


7030 PRINT "1 HISAVE!,,!!'2 DHSAVE!,, 
"3 DHLOAD!! 

704) GOSUB 9200 

7056 IF F<>I THEN GOTO 7104 

7660 RAND USR 8405 (Hisave) 

7076 RETURN 

716) REM DHSAVE 

7116 IF F<>2 THEN GOTO 7209 

712) LET Z=4f 

7136 DIM C$(4H) 

714) FOR N = 1 TO NR 

7154 LET C$ = R$(N,1 TO 6) + R$(N,11 TO 35) 

7160 LET Z$ = "Cc! 

7170 LET STAT = USR 9008 (Dhsave) 

7189 NEXT N 

7199 RETURN 

7200 REM DHLOAD 

73160 DIM C$(46) 

7320 LET Z = À 

7330 LET Z$ = !!C! 

7340 FOR N = NR TO DM 

7350 LET CC = USR 9189 (Dhload) 

7360 IF CC<>f THEN STOP 

7370 LET NR = NR+1 

7380 LET R$(NR) = C$(1 TO 27) 

7390 NEXT N 

7466 RETURN 


NOTAS: 





NR (7126 e 7240) é o numero de records na me- 
moria. No primeiro caso refere-se a quantos 
records devem ser gravados na fita, o segun- 
do determina a partir de qual posição devem 
ser carregados records na memoria. 

A rotina 709) a 7199 grava o record de 35 by- 


tes na memoria como 26 bytes na fita. Os by- 


tes de 7 a if (linha 7139) nao foram utili- 
zados. 

A rotina 720) a 740) refere-se ao programa 
modificado. Le um record de 4Ê bytes (o me- 
nor record possível, segundo o manual) da fi- 
ta e transforma-o no record R$(NR) de 27 by- 


tes na memoria do micro. 
Entao ao teste - 


Ao escolher a opção 6 (HISPEED) a- 


pareceu o menu : 


ESCOLHA À FUNCAO 
1 HISAVE 
2 DHSAVE 
3 DHLOAD 


Liguei o gravador e digitei 2 e 
NENLINE alguns segundos depois. A gravação dos 226 
records reformatados foi rapida - menos que um mi- 


nuto. 


Em seguida carreguei o programa 
modificado para um record R$ de 27 bytes,voltei a 
fita ao início, digitei 3 (DHLOAD) e liguei o gra- 
vador para reproduzir. Perfeito. Todos os records 
foram transferidos, com seus formatos transforma- 
dos, e nao houve nenhum problema. Repeti varias 
vezes a mesma operação, mas sem nenhuma mudança - 


22) records transferidos para a memoria. 


Se foi tao simples assim, porque 
nao experimentar mais? Modifiquei a rotina 720p a 


740), adicionando as seguintes linhas : 


722) PRINT "DHLOAD!!,,, "DIGITE OS NOMES 

PARA CARREGAR: ! 

7230 INPUT N$ 

724) PRINT N$ 

725) PAUSE 206 

7365 IF C$(5 TO 4+LEN N$) <> N$ THEN GOTO 
7394 


Ao rodar novamente, usando RUN 
limpei a memoria de todos os nomes do cadastro 
Escolhi !'3!! (HISPEED) e, em seguida, "3! (DHLOAD). 
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Na pergunta : 


DIGITE OS NOMES PARA CARREGAR 


digitei "J! e NEWLINE, ligando o gravador para 
reproduzir os dados outra vez. O resultado foi 
que somente os records cujos nomes começavam com 
“9” foram transferidos - JOAO, JOSE, JORGE, 


Isto foi apenas um experimento tri- 
vial para mostrar as possibilidades destas novas 
funções. Quem utiliza um micro para controlar o 
seu estoque, cadastro de clientes, coleção de se- 
los, etc. ,etc., , tem agora muito mais fle- 


xibilade com o TKB5. 


Darei um exemplo - suponha que 
tenho 1 fitas com cadastros de clientes, fita 1 
com clientes 1 a 4Ó, fita 2 com clientes 41 a 8Ê, 
etc. Gostaria de colocar todos os nomes em ordem 
alfabetica, criando outros cadastros novos que tem 
fita IA com nomes começando com ÀA,B e C; fita 2A 
cujos nomes começam com D,E,F e G, ..... Posso 
gravar todos os dados dos 1f cadastros originais em 
à Fita so, e rodar meu programa com RUN,escolhen- 
do "3! (HISPEED), seguido por ''3!! (DHLOAD). Para 
tornar a ação mais rapida, em vez de repetir 3 
vezes para a primeira fita com "A!'!, depois "B!!, e 


“Cr, a linha 7365 pode ser mudada para : 


IF C$(5) < "Ar OR C$(5) > "Cc! THEN GOTO 7396 


e todos os nomes começando com À, B, el serao 


transferidos com somente um passo da fita. 


Conclusao 


O TK85 e um avanço significante em 
comparação ao TKB2-C, e realmente posso afirmar 
que "Vale a Pena!! se essas novas funções forem u- 
tilizadas ou o comprador aceita pagar mais caro 
por um micro que é bem mais facil para digitar 
que o TK82-C. Uma coisa muito interessante apa- 
receu nos testes, que nao é mencionada nos pan- 
fletos, mas deveria ser. O TK85 aceita programas 


mal gravados em cassette que o TK82-C nunca con- 





seguiria aceitar. Obviamente ha um novo circuito 

no TK85 que compensa variaçoes nas  gravaçoes e 
. q . . 

muitos niveis de volume do gravador. Para mais 


detalhes, ver o artigo "Testando o TIG-LOADER". 


Para terminar este artigo,gostaria 
de perguntar a MICRODIGITAL - porque nao fez logo 
o "TK SPECTRO!! baseado no Sinclair ZX SPECTRUM,em 
vez deste modelo intermediario que tem os pri- 
meiros 8K de memoria ROM do ZX-81 e algumas funções 
do SPECTRUM entre 8 e 10K? Imagine este micro com 
8 cores, alta resolução, letras maiusculas e mi- 
nusculas, etc.! Sem duvida ha planos para novos 


modelos em futuro nao tao distante. 





Grupos de Usuários 


Quem quiser organizar um grupo de usuarios num 
assunto de interesse comum - radioamadorismo,gra- 
ficos, linguagem de maquina, hardware, .... , - 
escreva-nos para incluirmos nesta nova. coluna, 


. Ed . . 
inedita no Brasil. 


Sugerimos que os que desejam participar do grupo 
como usuario/associado enviem um envelope selado 
e endereçado ao(s) organizador(es) mencionados 


nesta coluna. 


(Especialidades) 


GU/RA (Grupo de Usuarios/Rádio Amadores) 

- LUIZ CARLOS NARDY, Caixa Postal 28, 17200 - 
JAÚ - SP. / QRV-QAP das 15:00 as 18:00 em 
7.097 KHz. Py2 AQO 

- ANDRÉ KOCH ZIELASKO, Av. Emancipação 402 sala 
2, 95590 - TRAMANDAÍ - RS. 

- JOSÉ GUSTAVO C. AQUINO, R. dos Manacas 4,Ci- 
dade Jardim, 05672 - SÃO PAULO - SP. PY2 NCG 
Tel: (011) 211-3077 
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Como Criar um Cadastro - Parte III 


Recapitulando 


Nas primeiras duas partes deste 
artigo foi feita uma breve descrição das possibi- 
lidades de uso de um programa deste tipo, e a es- 
trutura basica do programa, bem como a forma de 


armazenar os dados relativos a cada componente. 


Foi selecionada informação relati- 


va ao nosso proprio clube para a criaçao deste ca-. 


dastro - dados sobre os associados : Numero de re- 


gistro, nome, endereço, etc. 


Obviamente o programa como esta 
não é muito interessante para a maioria dos 
leitores. Mas é bem fácil modifica-lo, mantendo a 
mesma estrutura, para qualquer outro tipo de da- 


dos. 


Por exemplo : quem tem uma relaçao 
de clientes, uma coleção de selos, moedas, ...., 
e deseja cadastra-la, é necessario somente a mo- 
dificação das mensagens (títulos, comentários,..) 
e da estrutura dos dados - R$ e dos seus  compo- 


nentes, para conseguir utiliza-lo. 


Foi necessario que eu modificasse 


o programa para os seguintes dados : 


1: Codigo de referencia (2 bytes) 
2: Número de registro (4 bytes) 
3: Nome de quem mostrou interesse no Clube 


mas não fez assinatura (18 bytes) 
Total de 24 bytes por registro. 


Com aproximadamente 1 hora de edi- 
ção do primeiro programa, consegui o segundo.Com- 
parando o numero de registros possiveis, o  prl- 
meiro programa (Cadastro dos Associados) com um 
record de 105 bytes da um maximo de 42 registros 
com 16K, enquanto o segundo armazena ate 35p 


"Nao-Associados!!. 


Então com um pouco de esforço vo- 


ces podem criar um cadastro particular, contendo 


os dados que julgam necessarios. À intenção deste 


jornal e a de que vocês pensem e trabalhem um 
pouco - apresentando um programa que nao precisa 
ser modificado não servira para aprender progra- 
mação de um micro. O que damos são os fundamentos 
de como proceder, e deixamos voces a vontade para 
trocar, modificar, adicionar, incrementar, elimi- 
nar,.. , erealmente compreenderemo que estao  fa- 
zendo. Quem deseja somente copiar programas e não 
tem tempo disponivel, pode digitar todos os pro- 
gramas exatamente como estao listados no MICRO 
BITS. Mas preferiamos que todos tentassem melho- 
rar ou adaptar aqueles programas pelos quais se 
tem interesse, a fim de aproveitarem o mais pos- 


á . “ 
sivel seus micros e este jornal. 


O Programa 
Finalmente chegamos ao programa! 


Para ajudar ao maximo na sua com- 
preensao,as subrotinas sao apresentadas uma por 
uma (nao necessariamente na ordem em que aparecem 
na listagem), com informação detalhada. Antes das 
rotinas são dadas as novas variaveis, e depois 


explicação sobre a programaçao. 


1. Programa Principal 


Novas variaveis: 
MOD - valores possíveis : f ou 
utilizado como semaforo (FLAG). 
A rotina 200fÁ (entrada de dados no- 


vos) é tambem utilizada pela rotina 





3000 (modificação ou eliminação de 
dados). Quando MOD = À, entao cor- 
responde a dados novos , enquanto 
MOD = 1 significa uma modificação de 
dados ja existentes. Dependendo des- 


ta variavel o processamento e modi- 
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ficado. 
NR - numero de registro. Quantos regis- 
tros ja existem no cadastro. 
A$,B$,C$,D$,ES,F$,G$,H$,1$,J$,K$ - veja pa- 
ginas 15 e 16 de MICRO BITS Nº 3. 


T$(1PS) registro temporario para um record 


R$(2,105) 
U$(5,10) Grau de proficiencia (5 graus a 
CINICIANTEM, sessao ) 


V$(5, 10) Interesses - "JOGOS", "DIDATICO", 


X$(8,7) 
Y(5) - 


Tipo de micro - "ZXBG","ZxB1M, 


M$(6,26) 


F 


MENS 


DM 


2) REM 

4 REM 

60 REM 

90 REM 
10) REM 
11) REM 
12) LET 
13) LET 
135 DIM 
14) DIM 
145 DIM 
1S$ DIM 
155 DIM 
16) DIM 
169 DIM 
176 DIM 
175 DIM 
186 DIM 
185 DIM 
195 DIM 
20) DIM 
265 DIM 
216 DIM 
215 DIM 
226 LET 
ces LET 
234 LET 
235 LET 


K de memoria - 1,2,16,48 ou 64 


-  Parametro de retorno da subrotina 


920). (Veja esta rotina para 
explicação) 


- Numero da mensagem a ser mostrada 


na tela. 
- Dimensão do array R$(DM,165) 


"CLUBE 
MICRO BITS MARCO/83 


PARA CONTROLE DOS 
SOCIOS DO CLUBE NACIONAL 
DOS TK/NE/SINCLAIR 

MOD = À 

NR = 

A$(4) 

B$(18) 

c$(24) 


D$(26) 


E$(S) 
F$(25) 
G$(2) 
H$(1) 
I$(1) 
J$(1) 
K$(4) 
T$(165) 
U$(5,16) 
v$(5,16) 
x$(8,7) 
Y(5) 
Y(1)=1 
Y(2)=2 
Y(3)=16 
Y(4)=48 
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6 mensagens de ate 2) caracteres. 


24) LET Y(5)=64 

245 LET x$(1)=""2x8p" 

256 LET x$(2)="ZX81!" 

255 LET X$(3)="TKBH! 

26) LET X$(4)="TK82-C! 

265 LET X$(5)="TK85! 

27) LET X$(6)="NEZBH! 

275 LET X$(7)="NEZBBÕD" 
289 LET x$(8)="cr2pd" 

300 LET U$(1)="INICIANTE! 
305 LET U$(2)="BASIC +/-!! 
316 LET U$(3)="BASIC O.K.!! 
315 LET U$(4)="BAS+L.MAQ.! 


32) LET U$(S)=""MEXPERTIA 
336 LET v$(1)="JOGOS" 
335 LET V$(2)="DIDATICA! 


340 LET V$(3)="CIENTIFIC.!! 

345 LET V$(4 )="COMERCIAL! 

356 LET V$(5)=""" 

366 DIM M$(6,26) 

376 LET M$(1)=!! (2) espaços) 
380 LET M$(2)="ERRO NO VALOR " 
390 LET M$(3)="ARQUIVAR OS DADOS |! 
406 LET M$(4)="ERRO: VALOR DE 1 A 6! 


416 LET M$(S)="ERRO: SAO 5 DIGITOS !! 
42Ô LET M$(6)="RECORD NAO EXISTE 
46) FAST 

489 CLS 

S0p PRINT “"QUANTOS SOCIOS ?!! 

52) GOSUB 9209 

54) IF NOT ERRO AND F>=1 THEN GOTO 640 
586 LET MENS=2 

60) GOSUB 9H0p 

62) GOTO 48 

64 REM DADOS OK 

669 LET DM=F 

68) DIM R$(DM,165) 

BÓÁ REM PONTA DE PARTIDA 

81) REM 

82) REM IMPRIME O MENU 

83) GOSUB 1H 

84) IFF< 1 0RF>6 THENGOTO 80 
850 IF F=5 THEN GOTO 90f 

86) IF F=6 THEN STOP 

87) GOSUB (F+1)*1 0H 

88) GOTO 8H 

90) REM ARQUIVAR EM FITA 

916 LET MENS=3 

92) GOSUB 9HHP 


RAD TP CR SDS DS a rate Ce capeta gia assa aero meia ri E US a NT EIS O TP E SO sa sra es 


93% PRINT AT 21,0;"NEWLINE PARA ARQUIVAR! 
94) INPUT A$ 

950 SAVE "CLUBE! 

96) GOTO BHp 


Explicação 


(Veja o fluxograma na pagina 14 do MICRO BITS Nº 3) 


Esta rotina pode ser divida em 3 
partes : - 
1: Inicialização - linhas 20 a 68f 
2: Programa principal - linhas BWf a 88f 
3: "SAVE! do programa - linhas 90) a 96H 


A primeira vez que o programa é ro- 
dado, usando RUN, as variaveis nas linhas 125 a 
420, e 68), são inicializadas. É importante sa- 
lientar que RUN so pode ser digitado na primeira 
rodada do programa - qualquer dado existente na 
memoria é apagado com este comando (e tambem com 
CLEAR). Assim ao recomeçar, o programa SEMPRE u- 
tilize GOTO 89). Isto so se aplica nos casos em 
que você optou por terminar, apertou o "BREAK!'! 
ou tem algum erro no programa - normalmente ele 


roda automaticamente depois de "LOAD!!). 


No caso de inicialização, a tela 
mostra a mensagem "QUANTOS SOCIOS?".Dependendo do 
tamanho de sua memoria (16 ou 48K), ha um valor 
maximo que pode ser digitado. Qualquer valor aci- 
ma disto dara o erro 4. Como expliquei em MICRO 
BITS Nº 2, seria recomendavel utilizar um valor 
inferior a este maximo, para deixar algum espaço 
de reserva na memoria para possiveis modificações 


no programa. 


O programa principal (linhas  sdp 
a 889) e um loop sem fim - so termina ao desligar 
o micro (ou digitar BREAK). 


linha 830 - Chama a subrotina IÓPÁ que imprime 
o menu principal, e retorna com o 

valor F (parametro). 
8.) - se F for fora da faixa dos valores 
possíveis (1 a 6) então volta à 


linha BPÓ e repete novamente. 


85g 


86% 


874 


88 


linha 916 


924 
94 


954 


se a escolha for "St! (ARQUIVAR) |, 
nao podemos utilizar uma subrotina. 
Isto acontece porque ao recarregar 
o programa da fita (LOAD), o pro- 
grama pararia com erro 7 - "RETURN 
sem um GOSUB correspondente!!.Neste 
caso utilizei GOTO 9HÊ. 
a escolha foi TERMINAR. 
GOSUB para o numero de escolha mais 
um, e o total multiplicado por 1pff. 
Por exemplo, escolhendo 

"3 LISTAR" 
o desvio e feito para a rotina co- 
meçando em - 

(3+1)*1000 = «ppp 


volta ao início deste loop. 
A rotina de "SAVE! - 


MENS = Número da mensagem a ser mos- 
trado na tela pela subrotina 90Hf. 
Neste caso a mensagem  correspon- 
dente seria - 

M$(3) = "ARQUIVAR OS DADOS! 
ver subrotina 9P 
o micro espera para você digitar um 
NEWLINE (ou ENTER) antes de inici- 
ar o SAVE. 
SAVE - como expliquei no MICRO BITS 
Nº 2, pagina 1f, esta linha pode 
ser considerada a mais importante 
de todo o programa. Ao carregar q 
programa armazenado em fita , ele 
automaticamente começa a rodar a 
partir da linha depois do SAVE. Em 
nosso caso, ao carregar o programa 
de cadastro da fita (LOAD "CLUBE!!) 
ele começa a rodar a partir da li- 
nha 96), que volta ao início do 
loop sem fim na linha BÓP. O fato 
mais importante, portanto e que 
todos os dados guardados na fita 
junto com o programa tambem foram 
carregados. Isto significa que po- 
demos continuar aumentando e modi- 
ficando o nosso cadastro, e todos 
os dados serao arquivados com 0 
programa. Mas nunca podemos digi- 


tar RUN - a nao ser que realmente 
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pretendamos apagar todos os dados 
existentes e começar com um cadas- 


tro completamente vazio. 


2. Subrotina IDP - Imprime o "MENU! 


Novas variaveis: nenhuma 


1HDP REM MENU 

1026 CLS 

104) PRINT "CLUBE NACIONAL TK/NE/SINCLAIR! 
1066 PRINT === 000.202 22222 nn non " 
108) PRINT 

1100 PRINT MESCOLHA A FUNCAO:! " 
112) PRINT! 1 DIGITAR DADOS NOVOS! 


1140 PRINT! 2 MODIFICAR OU ELIMINAR DADOS" 
1160 PRINT! 3 LISTAR! 

1180 PRINT !! 4 ORDENAR! 

1200 PRINT! 5 ARQUIVAR! 

1220) PRINT! 6 TERMINAR! 

124) PRINT 


126 PRINT "QUAL FUNCAO?! 
1280 GOSUB 920P 
1300 IF NOT ERRO AND F< 7 THEN RETURN 


132) LET MENS=4 
1346 GOSUB 9600 
1369 GOTO 126 


Explicação 


A primeira coisa a aparecer na te- 
la depois de carregar o nosso programa e o menu 


seguinte : 


CLUBE NACIONAL DOS TK/NE/SINCLAIR 


ESCOLHA A FUNCAO: 
1 DIGITAR DADOS NOVOS 
2 MODIFICAR OU ELIMINAR DADOS 
3 LISTAR 
4 ORDENAR 
5 ARQUIVAR 
6 TERMINAR 


QUAL FUNCAO? 


- correspondendo as linhas 12) a 126p. 


linha 128] -  GOSUB 920f. Entrada e verificação 
de valores numericos. 
1300 - completounormalmente (sem erro) - 
volta ao programa principal 
132) - 1366 imprime mensagem (de erro) na tela, 


q " 
e volta ao inicio deste menu 


SUBROTINAS DE VERIFICAÇÃO E MENSAGENS 


Antes de continuar com as rotinas 
de entrada de dados, correçao, » vou descre- 
ver as tres subrotinas de verificaçao e de mensa- 


gens. 


Quem pretende modificar o programa 
para uso pessoal, estas rotinas devem ser digita- 
das agora, porque sao utilizadas (menos a de ve- 
rificaçao do CEP) em todas as subrotinas princi- 


pais. 


Para dar um exemplo, voce pode di- 


gitar as rotinas começando nas linhas : 


2 - Inicialização e rotina principal 
100) - Imprime menu 
909) -— Imprime mensagens 


920) - Verificação de valores numericos 


que serviria para uma base do programa. 


Nas rotinas 2006, 300D, «ÓDD, .... 
sg0f (se pretende utilizar todas), você pode di- 


gitar algumas linhas temporarias como : 


200) REM DIGITAR DADOS NOVOS 
2P1p CLS 

2020 PRINT "DIGITAR DADOS NOVOS" 
2036 PAUSE 2Hf 

204f RETURN 


300) REM MODIFICAR/ELTMINAR DADOS 
3P1p CLS 

3020 PRINT "MODIFICAR/ELIMINAR DADOS! 
3030 PAUSE 206 

304) RETURN 
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e seu programa rodara sem ter que digitar tudo. 
Assim você pode testar, examinar e corrigir as 
rotinas digitadas ate então, sem se preocupar com 
as demais. Quando estiver satisfeito com as roti- 
nas 2), 1HHÓ, 907) e 920) (nao pode testar tudo, 
porque a maioria das variaveis ainda não Foram ds 
tilizadas), e digitando 4 (por exemplo) aparece 


na tela por alguns instantes a mensagem - 
ORDENE OS DADOS 


a ser substituida pelo menu principal, entao po- 


dera começar pensar nas outras rotinas. 


Como ainda nao ha dados no cadastro-. 


a subrotina 20ff sera a proxima a ser digitada de- 
pois de 900P, 920) e 95H), e assim por diante. 


3. Subrotina 9000 - Imprimir mensagens 


Novas variaveis : nenhuma 


90WP REM MENSAGENS 

961) SLONW 

902) FOR I=1 TO 1f 

904f PRINT AT 21,0;M$(MENS) 
9060 FOR J=1 TO 5 

908) NEXT J 

9160 PRINT AT 21,0;M$(1) 
912) NEXT I 

913) FAST 

914 RETURN 


Explicação 


Como estamos no modo FAST (pois o 
processamento do cadastro seria muito demorado no 
SLOW), entramos logo no modo SLOW no início desta 
subrotina. (Para quem não possui SLOW, darei uma 


outra versao desta subrotina em seguida) 


linhas 992) a 9126 imprime a mensagem definida por 
MENS antes de chamar esta rotina 
(ver linhas 580/60) , 910/920 e 
1320/1340), alternando com a men- 


sagem Nº 1, que so consiste de es- 





paços. O efeito e que a mensagem 


"pisca! na tela, advertindo o usu- 


ario que digitou uma coisa errada, 
ou deve preparar para uma açao (li- 


gar o gravador, ....). 


9016 e 926 repete a mensagem lf vezes 
94 - imprime a mensagem 
906) e 9H8F um loop de temporização (em vez de 


usar PAUSE) 

910) - escreve uma linha de espaços em ci- 
ma da mensagem da linha 994P, dando 
o efeito "pisca!'. 

9136 - volta ao modo FAST. 


Quem nao tiver SLOW 


A subrotina devera ser substituida 


por : 


90PÁ REM MENSAGENS 

9016 PRINT AT 21,/;M$(MENS) 
9020) PAUSE SHf 

9036 RETURN 


(tambem apagando a linha ''46) FAST!) 


Para todos 


Padronizei as mensagens desta forma 


f 
(a) Mensagens de erro - em video reverso 


(b) Mensagens de advertência - normal 


Entao qualquer mensagem que apare- 
ce na tela e imediatamente reconhecida como erro 
ou nao. Um detalhe pequeno, mas impressiona quem 
esta vendo o programa pela primeira vez. Parece 


ser mais "'profissional!. 


4. Subrotina 9209 - Verificação de valores nume- 
ricos 


Novas variaveis : 

ERRO - Parametro de retorno. Isto signifi- 
ca que o valor de ERRO sera utili- 
zado pela subrotina que chamou es- 
ta, modificando o processamento se- 
quinte em funçao dele. 

ERRO e utilizado como um FLAG ( se- 
maforo) de dois estados - 
ERRO = f - significa sem erro 


ERRO = 1 - significa com erró 
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P$ - "string! digitado em resposta ao 
pedido de um valor numérico. Tambem 
um parametro de retorno. 

F - Parametro de retorno. É o valor nu- 
merico de P$ (VAL P$) somente quan- 
do foi verificado que todos os ca- 
racteres em P$ sao digitos decimais 
(ODM AIO, ascaaai » NO) 


9200 REM VERIFICACAO DE VALORES NUMERICOS 
922) LET ERRO=f 

9230 LET F=f 

924) INPUT P$ 

9260 IF LEN P$ > THEN GOTO 9320 

9280 LET ERRO=1 

9300 RETURN 

9320 FOR I=1 TO LEN P$ 

934 IF P$(I)< "O! OR P$(I) >'!'9" THEN GOTO 9286 
9360 NEXT 1 

9386 LET F=VAL P$ 

94) RETURN 


Explicação 


Um fator que impressiona mal um u- 
suário que comprou um micro novo e pretende !tin- 
Formatizar!! sua firma, é que o primeiro programa 
que ele roda para porque digitou 1f (letra L mi- 
núscula e digito É) em vez de 1f (dez). Ora,quan- 
do ele datilografa uma carta comercial, sempre 
usa 1 (L minúscula) para 1 (um) - todo mundo en- 
tende disto! - Porque parou este maldito progra- 


ma? 


Se você pretende desenvolver 2 
vender programas, tem que pensar nestes detalhes. 
O usuario provavelmente nao entende nada de com- 
putação, e voce deve incluir rotinas de verifica- 


ção de qualquer entrada de dados do programa. 


Como exemplo, considere as linhas 


SH) a 68). Seria muito mais simples assim : 


SH) PRINT AT 5,0; "QUANTOS SOCIOS?" 
520) INPUT DM 
680 DIM R$(DM,165) 
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em vez de 9 linhas de programa mais à subrotina 
920f(que são 12 linhas). Tem somente 3 linhas - 
mais rapido, e usa menos memoria. Tudo bem - se o 
programa for sempre para o seu uso pessoal, talvez 
seja melhor desta maneira. O programa fica mais 
compacto, e se houver um erro 12/52]! voce sabe 
que cometeu um erro de digitação na linha 520, e 


pode continuar o programa com : 
GOTO 5h 


Mas nao espere vender um programa assim para um 
comerciante, ou outro usuario, que nunca viu um 
microcomputador antes. Talvez venda um programa, 


mas ele nao voltara para comprar outro! 


Retornando ao nosso exemplo, mas 
como foi utilizado no programa, posso ficar tran- 
quilo que qualquer coisa que O usuario digite, o 
programa não vai parar (a menos que seja um va- 
lor extremamente grande ou pequeno no caso de um 
numero - 99**99, por exemplo). À única maneira de 
para-lo sera com a tecla BREAK. Como não posso 
prevenir este caso, porque e impossível desligar 
o BREAK, nao ha nenhuma providencia que possa ser 
tomada. A unica coisa que podera ser feita e avi- 
sar o usuário que quando aparece a mensagem de 


erro : 
D/numero de linha 


é porque ele apertou o BREAK. Para continuar de- 


vera digitar "CONT'. 


Talvez agora voce entenda porque o 
programa e tao extenso. O iniciante deve ser ins- 
truido a programar corretamente - maus habitos 
são dificeis de corrigir posteriormente. Isto não 
significa que seus programas devam ter tantos de- 
talhes, mas ao mínimo, voce sabe sobre estes pro- 


cedimentos, e podera utiliza-los ou nao. 


linhas 922) e 9230 inicialização de ERRO e F 
9240 - entrada de P$ (que deve consistir 

somente de caracteres numéricos) 

se for digitado NENLINE (ENTER) 


sem nenhum caracter, ERRO e setado 


9266 a 9300 


para 1 e o programa voltara para a 


rotina que chamou. 
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932) a 9366 verificar se todos os caracteres no 
string P$ (cujo comprimento e LEN 
P$) sao numéricos.Caso afirmativo, 
F e dado o valor numérico do string 
em 9386. 
Note bem - ha 2 parametros com 
valor de entrada : 
P$ - um string de caracteres nu- 
mericos - por exemplo "123! 
F - o valor deste string (= 123 
neste exemplo) 
Posso usar qualquer um dos dois . 
Dependendo da chamada da subrotina, 
uso um ou outro destes parametros 


(ver as subrotinas 2009, etc.) 


5. Subrotina 950) - verificação do CEP 


Novas variaveis: nenhuma (ver subrotina 92Hf para 


uma explicação de P$ e ERRO). 


950) REM VERIFICA CEP 

9520 LET ERRO=f 

954) INPUT P$ 

956) IF LEN P$=5 THEN GOTO 9626 

9580 LET ERRO=1 

960f RETURN 

96260 FOR I=1 TO 5 

9640 IF P$(I)< "A! OR P$(I) D''9" THEN GOTO 9580 
966) NEXT I 

9686 RETURN 


Explicação 


O CEP deve consistir somente de 5 
digitos. Esta subrotina pode ser substituida fa- 
cilmente pela rotina 920f, a unica diferença sen- 


do, em vez da chamada : 


209) GOSUB 95HH 
2095 IF NOT ERRO THEN ..... 


devia ser desta forma : 


2096 GOSUB 9200 
2095 IF NOT ERRO AND LEN P$=5 THEN ..... 


As rotinas 920) e 950) diferem no 
fato que no 95H) o comprimento de P$ deve ser 5, 


e tambem nao utiliza o parametro F. 


Resumo 


Nesta ediçao foi dada a base do 
programa para começar experimentar. Digitando to- 
das as linhas das rotinas aqui você tera um pro- 
grama que roda, so que nao faz nada util! Ao mi- 
nimo você pode sanar qualquer defeito e, se qui- 
ser começar a elaborar alguma coisa nas rotinas 
2H0A a SAMA (ou ate BHMÁ),da para tentar. 


Na proxima ediçao iniciarei as sub- 
rotinas ''pesadas'! que realmente manipulam os da- 


dos do cadastro. 


—mm 1 66([1V] |] 


ASSINATURA 


- Ainda nao fez a sua assinatura para MICRO BITS? 
Faça-a logo, antes do proximo aumento (1º de ou- 
tubro). 

Completando a sua assinatura, você sera automati- 
camente cadastrado como socio do CLUBE NACIONAL 
DOS TK/NE/SINCLAIR, o maior clube de microcompu- 


tadores no Brasil. Como socio voce pode comprar 


livros e programas em fita cassette com desconto, 


e aproveitar de futuras promoções e ofertas. 


Taxa de assinatura Brasil Exterior 
6 exemplares de MICRO BITS  Cr$3.000  US$15 
12 " " H " Cr$5.800  US$25 


—e (a 
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Programa "SENHA" 


1) REM SENHA - DANIEL QUADROS 
2) GOSUB 6H 
36 PRINT TAB S; "SENHA! 
4 PRINT 
SÊ PRINT "NUMERO DE CORES ? !!; 
6) INPUT NC 
76 IF NC<1 OR NCD>O9THENGOTO GP - 
8) PRINT NC 
9) PRINT "NUMERO DE DIGITOS ? !'; 
1H) INPUT ND 
110 IF NDDNC OR ND<1 THEN GOTO 1Hó 
12) PRINT NO 
139 DIM O(16) 
140 DIM T(16) 
15) RAND À 
169 FOR I = 1 TO ND 
17) LET D = INT (NC*RND) 
180 LET J =1 
190 IF I = J THEN GOTO 236 
20) IF D = D(J) THEN GOTO 179 
21P LET) = J+l 
22) GOTO 199 
236 LET O(I) = D 
24) NEXT I 
25 PRINT 
26) LET N = 16 
276 PRINT MZ; 
28) INPUT T$ 
296 IF LEN T$E<>ND THEN GOTO 286 
30) PRINT T$;TAB 5; 
31) LET A$ = tt 
32) LET B$ = tt! 
330 FOR I = 1 TO ND 
340 IF T$(I)< "AM OR T$(I) >'!9" THEN LET 
T$(I) = "gm 
350 LET O = VAL (T$(1)) 
360 IF D = D(I) THEN LET A$ = A$ +=! 
370 FOR J = 1 TOND 
380 IF D=D(J) AND JC >I THEN LET B$=B$+!tzsu 
39) NEXT J 
4pÓ NEXT I 
410 PRINT A$;B$ 


Daniel Quadros 


42) IF LEN A$=ND THEN GOTO SG 

43) LET N = N-l 

44) IF N<>Ê THENGOTO 276 

456 PRINT 

46) PRINT “BAH ... M 

47) PAUSE 18f 

48) CLS 

49) GOTO 3f 

SÓf PRINT 

516 PRINT "PARABENS ...!! 

520 PAUSE 240 

539 CLS 

54) GOTO 36 

60) PRINT TAB 5; EISENHA SEM 

61) PRINT 

6260 PRINT "NESTE JOGO VOCE VAI TENTAR!" 

634 PRINT "DESCOBRIR A SENHA SECRETA! 

64) PRINT "DO COMPUTADOR. ELA EH FORMADA! 
656 PRINT "POR UM CONJUNTO DE CORES, SENDO" 
66% PRINT "CADA COR REPRESENTADA POR UM" 
670 PRINT "DIGITO (A PARTIR DE P).! 

689 PRINT 

696 PRINT "VOCE EH QUEM DETERMINA QUANTAS! 
70) PRINT "CORES EXISTEM (ATEH 9) E QUANTOS" 
716 PRINT "DIGITOS FORMAM A SENHA.!! 

726 PRINT 

736 PRINT "PARA CADA DIGITO QUE VOCE" 

74 PRINT "ACERTAR A POSICAO O COMPUTADOR" 
75 PRINT "COLOCA UM - E PARA CADA DIGITO! 
766 PRINT "QUE ESTA NA SENHA MAS NAO NA! 
776 PRINT "POSICAO, UM EE .! 

780 PRINT 

790 PRINT TAB 1; "BOA SORTE! 

8H PRINT AT 21,7;!'APERTE UMA TECLA! 

B1IÓ FOR I = 1 TO 1G 

820 NEXT I 

830 PRINT AT 21,7;"APERTE UMA TECLA! 

B4Ó FORI = 1 TO1F 

85 NEXT I 

86) IF INKEY$ = !!!! THEN GOTO BHG 

876 CLS 

880 RETURN 
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1WÓ) SAVE "SENHA! 
IÓ1Á GOTO 29 


Obs: 





|: Caracteres reversos estao anotados como subli- 
nhados. 
2: FEi e o "SHIFT GRAPHICS A! 





SERVIÇOS 


1. Adaptação / Conversão de Equipamento 


WILSON DE ASSIS modifica o NE-Z8000 para incluir 

a função SLOW (preço aproximado Cr$15.000) e co- 

loca alta resolução grafica nos micros NE-Z8000 , 

CP200, TK82-C e TK85 (preço estimado em Cr$32.000) 
- Rua Fabrício Correia 145, Tucuruvi,Sao Paulo-SP 

CEP 02311. Fone: (011) 203-7967 


ZXx SPECTRUM. NICOLAS converte este micro (somente 
o modelo ingles) para o sistema de TV brasileira. 
Endereço : R. Ministro Ferreira Alves 907 casg 3, 
05009 - SÃO PAULO - SP. 


JENILTON presta os seguintes serviços - (1) con- 
versão SLOW para o NE-Z8000. (2) Funções especiais 
- HISAVE, HILOAD, etc. no TK82-C, CP200, NE-Z8000 
e 7X81. (3) Controle automatico de gravador. Liga 
e desliga com comandos LOAD e SAVE. (4) Gravador 
de memoria EPROM (grava EPROM sobre encomenda e 
tambem vende O gravador) usando os CI's 2716 (2K) 
e 2732 (4K). (5) Joystick para NE-Z8000. JENILTON 
DE CASTRO BRITO, Rua 227A Nº 255, 74000 - GOIÂNIA 
-G0. Fone: (062) 261-2862 


2. Livros e Revistas 
As seguintes livrarias mantem um bom estoque de 


livros e revistas, nationais e estrangeiros,sobre 


micros compativeis com o Sinclair ZX81. 


Sao Paulo 


- LITEC; Rua dos Timbiras 257, 01208 - Sao Paulo- 
SP. Tel: (011) 220-8983 

- POLIEDRO, Rua Aurora 704, 01209 - Sao Paulo-SP. 
Tel: (011) 223-9784/222-4297/220-7351 

- SISTEMA,. (novo endereço) Av. Sao Luiz 153 loja 8 
sobreloja, Galeria Metropole, Sao Paulo. Tel : 
(011) 257-6118. 


Rio de Janeiro 
— aa eme 


ae +: 
- INTERCIÊNCIA, Av. Presidente Vargas 435-52, CEP 
20077. Rio de Janeiro - RJ. Tel: (021)253-4973 

- CIÊNCIA MODERNA, Av. Rio Branco 156 sobrelojas 
217 e 230. 20043 - Rio de Janeiro. (021)262-2789 


3. Equipamentos Auxiliares 


TIG-LOADER - comercializado pela TIGRE COMERCIAL 
LTDA., Rua Correia Galvao 224, 01547-Sao Paulo-SP 


CMS/ZX (Controlador e Modulador de Sinal para mi- 
cros tipo ZX). POLIMICRO, Av. Andrade Neves 1254, 
13100 - Campinas - SP. Tel: (0192) 80822 


Lembre-se - ao solicitar livros, equipamentos,etc, 


nao se esqueça de dizer que foi indicado pelo jor- 
nal MICRO BITS. 
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Notícias SINCLAIR 


(Baseado parcialmente em artigos publicados em COMPUTING, 
o Jornal semanal do THE BRITISH COMPUTER SOCIETY) 


Clive Sinclair (agora SIR Clive), 
que começou trabalhando como jornalista eletro- 
nico na revista !PRACTICAL WIRELESS!!, lançou a sua 
primeira calculadora em 1972, o SINCLAIR  EXECU- 
TIVE. Considerado revolucionario na epoca, este 
nao fazia nada mais que as operações basicas de 
somar, subtrair, dividir e multiplicar numeros de 
ate oito digitos ( e com uma pessima precisão,que 
verifiquei pessoalmente com meu proprio "EXECUTI- 
VEN). 


Os primeiros produtos dele mostra- 
ram sua liderança em termos de avanços tecnologi- 


cos, mas sempre faltou qualidade no acabamento. 


Depois de comprar o 'Executive!!, o Cambridge 
Scientific''que logou "pifou!!, e o seu relogio di- 
gital em forma de kit que nao consegui faze-lo 
funcionar, resolvi nunca mais comprar qualquer 





coisa com o nome Sinclair! Mas quando surgiu o ZX- 
8), o primeiro computador completo vendido por um 
preço abaixo de 100 libras, e o ZX81 que era mais 
potente e mais barato ainda, comecei a mudar de 
ideia. Talvez valesse a pena comprar um ZX81, ou 
uma das suas várias copias que proliferam no Bra- 


sil como coelhos! 


Em meados de 82, 0 prognóstico dos 
"pundits! da area de informatica era que o ZX8l e 
o ZX SPECTRUM, vendidos em dezenas de milhares 
mensalmente, iriam chegar a um patamar e manter 
um nível razoavel de vendas, depois decaindo com 
a introdução de novos, e melhores, micros. Ao 
contrario do esperado, as vendas começaram a cres- 
cer quase exponencialmente.Em fevereiro de 1983, 
o total de vendas dos micros Sinclair tinha atin- 
gido um milhao em todo o mundo (600.000 nos Esta- 
dos Unidos). Em julho, as vendas somente nos Es- 


tados Unidos ultrapassaram o nível de 1 milhao! 


Com a produçao cada vez maior, e 
maior competividade com outros fabricantes lan- 


cando seus micros cada vez mais baratos e com mais 


recursos, a guerra dos preços começou de verdade. 

Todo mes ha notícias de redução dos preços do 

Timex Sinclair 1000 e 2000, e do ZX81 e ZX Spec- 

trum (ver MICRO BITS.Nºs 2 e 3). O Timex Sinclair 
TS 1000, equivalente ao Microdigital TK82-C e TK- 
83 no Brasil (embora muito superior em termos de 
acabamento e componentes eletronicos) baixou para 
aproximadamente Cr$20.000! Um colega,recentemente 
chegado dos Estados Unidos, me informou que estes 
micros não sao encontrados na maioria das lojas de 
computadores. São vendidos nas prateleiras de lo- 
jas como MACY!s (equivalente ao Mappin). Ate ha 
um banco que oferece um TS 1000 como brinde na a- 


bertura de uma conta! 


Na Inglaterra, um concurso patro- 
cinado pela SINCLAIR que apareceu numa revista 
dirigida exclusivamente ao publico feminino, cha- 
mada "WOMAN'S OWN!!, resultou em 50.000 respostas, 


para espanto de todos. 


Uma crítica severa sempre foi fei- 
ta contra Sinclair quanto a sua propaganda enga- 
nadora publicada nas revistas especializadas. 0 
maior "furo!! foi o MICRODRIVE, anunciado em 1982 
para ''ser lançado em meados de 1982!!, depois !! no 
final de 1982!!, e finalmente "em 1983". Não apa- 
receu este diskette, e esta propaganda foi re- 
tirada dos anúncios de Sinclair nas ultimas edi- 


çoes destas revistas. 


(Verifica-se o mesmo fenomeno aqui 
no Brasil. Desde o ano passado apareceram anun- 
cios com as '"novidades!! a serem lançadas - Impres- 
sora, Joystick, Diskette, Conversor A-D/D-A, Som 
e Modem. Até agora nenhum destes perifericos foi 
comercializado (com exceção do Joystick em numero 
reduzido). Com o aparecimento de novos micros no 
mercado - o APPLY 300 e o novíssimo RINGO - tam- 
bem compativel com o ZXB1, ganhara mais vendas a- 
quele que conseguir vender o melhor micro pelo 


menor preço sem enganar o comprador com falsas 


EST DS DS ES e e 
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promessas!) 


- Quais as novidades prometidas pe- 
la SINCLAIR RESEARCH? Neste ano ainda (sera?) eles 


esperam lançar o MICROVISION, um televisor com 


tela de espessura bem reduzida, pelo preço de 50 
libras (Cr$47.000 aproximadamente). Em 1984 tera 
o ZX83, sendo um micro com desempenho superior ao 
ZX SPECTRUM, mais o MICROVISION e dois diskettes, 


e outros perifericos ainda nao revelados. 





OFERTAS 


A. Livros/Programas em cassette da MICRON ELETRÔ- 


NICA de São Jose dos Campos, SP. a 


- Livros 
1. 45 Programas Prontos Para Rodar em 

TK82-C e NE-Z8000 (72 edição) Cr$4.000 
2. Aplicações Serias (22 edição) Cr$4.800 
3. 30 Jogos para ZX81, TK82-C e CP200 Cr$4.000 


(Nota: Temos ainda alguns exemplares do "45 Pro- 


gramas .... !! 42 edição a preço antigo de Cr$3000) 


- Cassettes 
1 . Folha de Pagamento - 16K Cr$4.000 
2. Contabil - 16K Cr$4.000 
3. Correção Monetaria do Imobilizado 16K Cr$4.000 
4. Contas a Receber / Pagar - 16K Cr$4.000 
S. Correção das Contribuições do IAPAS - 

16K Cr$4.000 
6. Funções I - 16K Cr$5.000 
7. RAM TOPER - 16K Cr$5.000 
8. DISASSEMBLER - 16K Cr$5.000 
9. JOGOS 1 - ZXK Cr$3.000 
10. JOGOS II - ZK Cr$3.000 
11. Jogo de Damas - 16K Cr$4.000 


B. Programas em cassette da MICRO!'S Assessoria em 


Processamento de Dados, de Santo Andre. 


1. Forca Cr$4.000 
2. Senha Cr$4.500 
3. Contas a Pagar Cr$13.000 
4. Agenda Cr$9.500 
5. Video-Título Cr$15.000 


6. Cadastro de Clientes Cr$13.500 


Forma de Pagamento 
I Associados 


Livros - os preços como listados (despesas ja in- 
f 
cluidas) 
Cassettes - 10% desconto sobre os preços da tabe- 


la (despesas incluidas) 
II Nao-Associados 


Livros - adicione 10% para despesas de correio. 


Cassettes - os preços como listados. 


Envie cheque nominal e cruzado, em favor de MICRO 
BITS INFORMÁTICA LTDA., para: Caixa Postal 12.464, 
04798 - SÃO PAULO - SP. 

Prazos de entrega : livros - 15 dias 


cassettes - 21 dias 





Correspondência 


Enviem seus programas e cartas para : 


MICRO BITS INFORMÁTICA LTDA. 
Caixa Postal 12.464 
04798 - SÃO PAULO - SP. 


CS 
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CARTAS... CARTAS... CARTAS... CARTAS... CARTAS... 





Acabei de adquirir um Timex  Sin- 
clair 1000 e nao consegui faze-lo funcionar. Sei 
que deve haver alguma incompatibilidade entre o 
sistema nacional e o americano. Gostaria de rece- 
ber sugestoes dos usuários deste equipamento, so- 


bre como resolver este probleminha. Enviem cartas 


para : 
ERVIN BOBEL NETO " 
R. Profº2. Augusto Machado 49€ 
Pituba 
40000 - SALVADOR - BA 
Obs: Se for necessario modificar ou a TV, ou 0 


hardware do TS-1000, indicar locais onde eu possa 


faze-lo, de preferencia em Salvador ou no Rio. 


OO OO O OU TE ELE ETETO E OT OLE OT OLETOTETATETATATATATAO 


A idéia de reunir usuários do mi- 
crosoftware é fabulosa e necessária. Desejo par- 
ticipar desta associação e ajudar com algumas su- 
gestões, ou melhor, "'solicitar!! que nas publica- 
ções seja incentivado o desenvolvimento de jogos 
como também aplicativos. Chega de cópias! 

Tenho um Timex Sinclair 1000 e vá- 
rios programas que estão sendo traduzidos para o 
BASIC (tenho experiência com C-300 e 305,CP-500, 
PDP 11, IBM 1130 e 370 e alguns sistemas de Z80 e 
6800) 


ITAMAR DE SOUZA LIMA 
Rua Antenor Navarro 1456, Palmeira, 
58100 - CAMPINA GRANDE - PB. 


P.S. - Desejo receber uma cópia de MICRO BITS e 
maiores informações sobre o clube. Proponho-me a 
responder qualquer carta de associados e trocar 


programas e informações. 


ONTITETA IATA POA CE TO TETET OO LETA TO EGL ELA TA ATA ORG A TUPA ATA Ur qL qqr AL AU TENEATANNANTATAA 


Por favor avise-me quando chegar a 
epoca de renovar a assinatura, pois desejo rece- 
ber MICRO BITS ininterruptamente. 


O Clube esta me ajudando muito! O 
nível de MICRO BITS esta bem acessível para este 
isobrinho!! de Uncle Clive ainda iniciante. Cada 


E : q H 
novo número recebido e quase ''devorado quando 


chega. 

Os artigos de MICRO BITS de maior 
interesse sao os que ensinam : 

- como tirar maior proveito do TK82-C; 
- truques e dicas sobre programaçao; 
- linguagem de maquina. 

Também tenho interesse em book re- 
views de livros nacionais e estrangeiros;analises 
de perifericos e !'add-ons!! nacionais e estrangei- 
ros. 

O TK me proporciona muitas horas 
de prazer apos o serviço e nos fins de semana 
MICRO BITS tem contribuido para isto, ampliando 
os horizontes e mostrando novas possibilidades do 
computador. 

Keep up the good work! 


ANTONIO C. CARRÉ, São Paulo 


MA TATETETETETETETETATAPATETATATETATETETETATA OPA PA PATA T ATO TATA CACAU died lcd led la 


Duas cartas de ROGÉRIO COLONNA DOS SANTOS - 


NS 
o Consegui encontrar, e comprar, O 
!Mastering Machine Code on Your ZX-81", escrito 
por Toni Baker. Não é um livro completo e a dida- 
tica e falha. Serve porem para iniciar-me no as- 
sunto. 
Entre os pontos que o livro não 
esclarece, destacam-se : 
1. RST 
Sao permitidas as instruções RST O, RST 8, RST 
10, RST 18, RST 26, RST 28, RST 30, RST 38; en- 
tretanto só RST À, RST 8, RST 19, RST 28 sao 
explicados. Para que servem as outras - R$1 18, 
RST 260, RST 36, RST 38? 
2. CALL Subrotina 
Por exemplo CDC517 = CALL MULT 
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Esparsas no texto, sem qualquer preocupação do 


autor quanto ao aspecto didatico, pude "pescar! 


as seguintes subrotinas que existem no New ROM 


do ZX-81 (2?) (ou sera no programa?) 


Soma 1754 ADD 
Subtraçao 1784 SUB 
Multiplicação  17C5 MULT 
Divisão 1881 DIV 
Impressao pap PRINT 
Impressao 
em hex. 4082 HPRINT (2) 
Teclas 0288 KSCAN 
Caracteres 078D FINDCHR 
Erro 4CA7 ERROR (7) 
? 4CB2 GAMEOVER (2) (progra: 
ma de jogo Damas) 
Pausa ) ATI ima o 
Pausa $229 PAUSE 
1519 STACKA 
GEA7 UNSTACK 
151C STACKBC 


Quais dessas subrotinas residem no 
ROM realmente? Existem outras subrotinas no 
ROM? 

3. No capítulo 8, "A Dictionary of Machine Code!, 
são relacionadas ''all the instructions!!. Con- 
frontando essa relação com programas do pro- 
prio livro e outros de revistas, notei a falta 
de algumas instruções : DEFB, EQU, ORG. 

Qual a explicação? Nao são instruções ou a re- 


lação apresentada e incompleta? 


O Sr. Baker apresenta um programa 
para produção de notas musicais quando se digita 
o teclado, que realmente funciona. Apesar do vo- 
lume de som obtido ser baixo (talvez seja falha 
da minha TV?), a nota musical e clara e firme. 

Outro programa curioso , chamado 
LIFE, que intenta representar o desenvolvimento 
de uma colonia de celulas por exemplo, tem algum 
macete ou então erro de impressao. Tentei roda-lo 
duas vezes, sem sucesso. 

Quanto ao jogo de Damas (Draughts) 
nem penso em digita-lo. É muito grande (ocupa 3 
capítulos do livro), e incompleto! Alem do mais , 
segue as regras oficiais americanas e nao as bra- 
sileiras. A diferença e que nas regras brasilei- 


ras (que coincidem com as russas), pode-se comer 


para tras em qualquer oportunidade, e nas ameri- 
canas so se pode comer para tras se previamente 
houve uma captura para a frente. 

Resumidamente, o livro do Sr.Baker 
não e suficiente para o completo domínio do as- 
sunto mas, na falta de outro melhor, serve para 


começar a aprender. 


....- 


= 
(e) 
No 





Apos as primeiras tentativas para 
programar em Assembler o TK82-C, com resultados 
sofríveis, venho ao Micro Bits para partilhar mi- 
nha experiência com os demais leitores e buscar 
orientação. 

1. O unico livro que encontrei no Rio sobre o as- 
sunto, "Mastering Machine Code on Your ZX81"!!, 
não é nada didatico, tornando difícil o apren- 
dizado. À respeito disto, escrevi anteriormen- 
te uma carta ao Micro Bits com observações 
mais detalhadas (uBits - ver carta Nº 1). 
Poderia indicar-me algum outro livro? 

2. À digitação do programa em linguagem de máqui- 
na é bem crítica, pois um erro pode resultar 
em !crash!'!, perdendo-se todo o trabalho.Assim, 
antes de rodar o programa, convém proceder a 
uma culdadosa verificação do que foi digitado. 
Existem programas de entrada de código de má- 
quina que também providenciam a listagem.Entre- 
tanto, em pequenos programas de exercício, re- 
sulta trabalhoso carregá-los (LOAD) no TK.Cos- 
tumo fazer uma verificação visual com um LIST. 
Neste procedimento, há dois pontos que merecem 
atenção especial. O primeiro refere-se aos có- 
digos que não tem correspondência nos caracte- 
res, aparecendo na tela como "2!. É o caso dos 
números (decimais) 67 a 111. O segundo é ains- 
trução LD A,(HL), muito usada em Assembler , 
que em linguagem de máquina é 7E, ou seja 126 
em decimal. 

Para ilustrar esses pontos, podemos digitar: 

1 REM 12345678901234567896 
Agora, coloquemos ai alguns códigos de lingua- 
gem de máquina (os códigos adiante escolhidos 
não se encadeiam logicamente, servindo apenas 
como exemplo). Façamos : 

POKE 16514,67 

POKE 16515,111 


EDS TT 
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POKE 16516,90 

LIST 
Obteremos : 

1 REM 77745678901234567896 
Somente atraves de PRINT PEEK 16514 poderemos 
saber se digitamos corretamente 67 ou se,inad- 
vertidamente por exemplo, pulamos uma linha e 
digitamos o 111 em primeiro lugar (POKE 16514, 
14), 
Continuando, para ilustrar o LD A,(HL), digi- 


temos 


POKE 16517,126 

POKE 16518,49 ta 

POKE 16519,56 

POKE 16526,51 

POKE 16521,52 

POKE 16522,53 

LIST 
Teremos na tela: 

1 REM 27701234567890 
Seis bits sumiram na listagem. Atraves de PRINT 
PEEK !'numero!! vemos que eles estao na memoria 
mas nao sao listados. 
Da mesma forma, se fizessemos apenas o POKE 
16517,126, sumiriam os seis bytes. 
Vemos pois que a simples leitura de um LIST, 
obtido para um programa comercial (ou nao) em 
linguagem de maquina, nem sempre sera sufici- 


ente para compreende-lo. 
Cordialmente, 


ROGÉRIO COLONNA DOS SANTOS 


uBits: 

Rogério é o nosso leitor que mais 
corresponde com MICRO BITS. Além destas duas car- 
tas, temos recebido outras com informações e co- 
mentários muito bem feitos, refletindo seu | pro- 
gresso de iniciante para mais experiente. Espera- 
mos publicar um programa dele numa edição futura 
- NCODIFICADOR DE TEXTOS!! - que parece ser inte- 
ressante. É sempre bom receber cartas do Rogério, co- 
mo também dos outros leitores, embora não pos- 
samos manter um contato mais pessoal por falta de 


tempo. Continuem escrevendo! 


Sobre o livro "Mastering Machine 
Code ...!! (por Sra. ou Srta. Baker!). Este livro 
tem quase toda a informação necessaria para um 
programador razoavel aprender linguagem de maqui- 
na. O que falta, como escreve Rogerio, é uma di- 
datica mais clara. Muda de um assunto para outro, 
ha falhas em alguns exemplos, etc. Como referen- 
cia e pessimo. Todos os codigos com suas explica- 
çoes, e as tabelas distribuídas pelo livro intel- 
ro, deveriam estar no final, e bem mais detalha- 


das. 


Esperamos o lançamento de 3 livros 
em portugues sobre linguagem de maquina parabreve 
- MICROMEGA prometeu lançar 2 em junho 83 ( com 
4 outros livros de BASIC) e DÉLIO SANTOS LIMA es- 
ta trabalhando para acabar o seu. Alem destes, fo- 
mos informados sobre outros com projetos simila- 
res. Mas enquanto nao sai nenhum sobre este as- 


sunto, listamos alguns que ja existem em ingles : 


l. Linguagem de Maquina Z8) (Nao especificamente 
para o ZX81) 
a. "ZBÓ ASSEMBLY LANGUAGE PROGRAMMING FOR STU- 
DENTS! - Roger Hutty, MacMillan (1981). 
Com 127 paginas, este é uma razoavel intro- 
dução. As instruções poderiam ser mais de- 
talhadas. 
b. "Z8) ASSEMBLY LANGUAGE PROGRAMMING! - Lance 
A. Leventhal, Osborne/McGraw-Hill (1979) 
Um livro enorme, com mais de 620 paginas, e 
todas as instruções pormenorizadas.Ha 6 ca- 
pitulos de exemplos de programação (progra- 
mas simples, loops simples, conversão de 
codigos, problemas aritmeticos, tabelas,sub- 
rotinas), e outros sobre I/0, Interrupts |, 
Desenvolvimento de Programas, Debugging e 
Testando, Documentação, e 2 projetos - um 


relogio digital e termometro digital. 


2. Linguagem de Maquina Z8Ó (especificamente para 
o ZX81). 

a. "MASTERING MACHINE CODE ON YOUR ZX81 OR ZX- 
8)! - Toni Baker, Interface (1981) 
- Ja comentado. 

b. "UNDERSTANDING YOUR ZX81 ROM! - Dr. Ian Lo- 
gan, Melbourne House Publishers (1981) 
Com 162 paginas, pode ser considerado  ra- 


zoavel. Nao muito bem escrito. 
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c. "MACHINE CODE AND BETTER BASIC” - Ian Stew- 
art and Robin Jones, Shiva (1982). 
Acabamos de receber este, o mais recente li- 
vro contendo linguagem de maquina. É uma 
continuação do livro dos mesmos autores, O 
"PEEK, POKE, BYTE E RAM". Muito bem escrito, 
excelente para iniciantes ( a parte sobre 
linguagem de maquina é muito superficial pa- 
ra os mais experientes). Veja os comenta- 


rios deste livro numa ediçao futura . 


As instruções RST? 


Aqui estão listadas todas (valores em hex.) 


RST À Rotina de inicialização 

RST 8 Rotina de manuseio de erros 

RST IG Rotina para imprimir um caracter 

RST 18 Rotina para trazer o caracter atual 

RST 29 Rotina para trazer o próximo  ca- 
racter 


RST 28 Rotina de calculadora 

RST 36 Rotina para deixar espaços dispo- 
niveis na memoria. 

RST 38 Rotina de interrupt 


- CALL Subrotina? Todas essas ( e 


muito mais) residem no ROM. 


- DEFB, EQU, ORG? Estas sao ''pseu- 
do! instruções, reconhecidas somente por alguns 
programas ASSEMBLER que convertem os mnemonicos 
("LD B,A!!, "RET'!) em codigos numericos (hexadeci- 
mais 47 e C9, por exemplo). "ORG!'! , por exemplo , 
significa origem! - onde deve começar uma  sub- 
rotina na memoria, etc. 

Além dos 3 acima ha : 

DEFL, DEFM, DEFS, DEFW, END 
Não adianta detalhar estes codigos, porque e ne- 
cessario um ASSEMBLER para utiliza-los, e ainda 


er a . [4 e 
nao existe este programa disponivel no Brasil. 


CATETE TETE TATA PATA EATE TETE EU OQ O Ur Era PATATAT OTTO UTI TETETENTATET 


Algumas palavras de incentivo. Es- 
pero que a sua iniciativa de certo, ja que os u- 
suarios do computador mais popular do mundo  ne- 


cessitam de maximo apoio para melhor usar e apro- 


veitar as suas fabulosas pequenas grandes maquinas. 


Permita-me alguns comentarios so- 

bre o 1º numero de MICRO BITS : 
Na sua resposta a Luiz Carlos Nardy, você mencio- 
na o livro "Mastering Machine Code On Your ZX81", 
Este livro e outros podem ser encontrados na LI- 
TEC e na Imares Jardins (ex-Computique). Mas cui- 
dado : sem alguma experiencia em Assembler de 1- 
80, ou uma leitura previa de algum livro que ensi- 
ne e explique as instruções de microprocessador , 
como por exemplo o "!Z8) Assembly Language Program- 
ming'! por Lance A. Leventhal (que eu considero 
excelente), o "Mastering!! se torna denso e inin- 
teligivel, alem de conter alguns erros que so com 
algum conhecimento sao detetaveis , produzindo 
frustrações no leitor neofito. Eu sei, porque ja 
passei por isto. O livro "Understanding Your ZX81 
ROM" por Dr. Ian Logan inclui explicações sobre a 
introdução de subrotinas em linguagem de maquina 
em programas em Basic, de uma maneira simples e 
objetiva, sendo talvez uma leitura melhor. Mesmo 
assim nao dispensa um estudo mais profundo do !'set!! 
de instruções. 

Na resposta a Roberto Carlos você 
menciona o erro no ROM original de Sinclair. Alem 
do teste sugerido (.25 elevado ao quadrado),para 
programadores em Assembler, ha a necessidade de 
verificar se PRINT PEEK 54 resulta em 136 ja que 
inicialmente nao se trocou o ROM, mas adicionou- 
se hardware! para o mesmo resultado, o que pode 
dar algumas diferenças em locações de rotinas  - 
SLOW, por exemplo. 

Outros erros nas rotinas matemati- 
cas do Sinclair persistem e as vezes causam pro- 
blemas desagradaveis. Um erro com o que tive que 
lidar consistia em diminuir numeros pequenos (me- 
nor que um) de numeros grandes em ''loop!! ate che- 
gar a zero e depois passar a uma rotina !'se o re- 
sultado for zero!!. A maquina começou a fornecer 
numeros muito proximos de zero, mas nao exatamente 
zero (como por exemplo 1E-1f) dando erro no pro- 
grama. 

Renovando os desejos de sucesso e 


naturalmente um longa vida ao clube, 


Engº KAZIMIERZ JOSEF MALACHONSKI 


uBits: 
Agradecemos os seus comentarios, 


Kazimierz. (Na sua carta foi incluido um programa 


ASS LES SS TREE ao e q SER PES ET SIS CI RS SST ISIS EAR IS SPOTS SAIS AS ga PA Gis MISTURE e so 
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'caça-niqueis!! que esperamos incluir numa ediçao 
futura de Micro Bits). 

Sobre os "erros!! nas rotinas mate- 
maticas do Sinclair: - É extremamente desaconse- 
lhável comparar um numero real (nao inteiro) com 
um único valor, devido a imprecisao no sistema nu- 
merico usado. Alguns compiladores de FORTRAN, por 
exemplo, dariam um mensagem do tipo : AVISO - 
COMPARACAO COM NUMERO REAL PODE CAUSAR ERRO! numa 


linha assim: 


IF (X .EQ. O.) GO TO 300 
onde X é um numero real. 
Esta linha deveria ser trocada por :- 
IF (ABS(X).LE. DELTA) GOTO 300 
onde DELTA é um valor pequeno (1.DE-1f, por exem- 


plo). 
A analise numerica e bem interes- 


sante, e esperamos editar alguns artigos sobre 
á “ “ f og . 
os vários tipos de erro, raizes de equações, inte- 


gração numerica, interpolação, etc. ..... 





Programa "VALOR PRESENTE” 


Lourival Karsten 


5 PRINT "VALOR PRESENTE! 
1) REM LOURIVAL KARSTEN 
15 DIM 1(12) 
17 PRINT 
26 PRINT "NUM. PERIODOS APOS O ZERO! 
25 INPUT N 
3) LET N=N+l 
35 FOR I=1 TO N 
4p CLS 
45 PRINT "FLUXO NO PERIODO ";I-1 
SÊ INPUT L(I) 
55 NEXT I 
69 PRINT 
65 PRINT "TAXA DE DESCONTO ?!! 
76 INPUT O 
75 LET D=.1*D 
8) LET V=f 


85 LET R=l 

9) FOR I=1 TON 

95 LET V=V+L(I)/R 

10) LET R=R*(1+D) 

105 NEXT 1 

110 LET V=.0PI*XINT(IÓDD*VA.5) 
115 CLS 

12) PRINT "VALOR PRESENTE = !!;V 
125 PRINT "CONTINUA (S/N) 2! 
13) INPUT A$ 

135 IF A$="S! THEN GOTO 5 


Obs: Este programa atualiza um fluxo de caixa a- 
traves da aplicação de taxa de desconto — infor- 
mada, trazem todos os valores para o periodo ze- 
ro. Problema classico de Valor Presente de um 


fluxo de caixa. 





CLASSIFICADOS 


VENDO programa de banco de dados com informaçoes 
detalhadas, precisas e atualizadas sobre  ANTI- 
BIOTICOTERAPIA". Útil para medicos que possuem 
TK/NE/Sinclair com 16K e o queiram utilizar no 
consultorio. Tambem disponho de outros bancos de 
dados médicos. Preço : Cr$18.000,00. Maiores in- 
formações - Dr. LÚCIO A. CASTAGNO - Rua General 
Osorio 1585, Pelotas - RS, CEP 96100. 


VENDO esquema eletrico completo do NE-Z8000 (com 
SLOW e expansão de memoria) - Cheque nominal de 
Cr$6.000,00 para JAN MARTIN LUND, Rua Frederico 
Ozanan 16 apto. 21 Bl. A, 11.100 - SANTOS - SP. 


COMPRO impressora Sinclair para o TS-1000,0u com- 
patíveis. Procurar : ERVIN BOBEL NETO, Rua Prof? 
Augusto Machado 49E, Pituba, 40000 SALVADOR - BA. 
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GOSTARIA de entrar em contato com pessoas que 
possuem microcomputador tipo TK82-C, NE-Z8000,ZX, 
etc., para troca de ideias, jogos, dicas, progra- 
mações em linguagem de maquina, manutenção, modi- 
ficações, via faixa dos dois metros. QTR e fre- 
quência a combinar. Fone : GUSTAVO (011)211-3077. 


PROCURAM-SE programas em BASIC ou linguagem de 
maquina de alta qualidade para comercialização 
NÃO queremos copias piratas. Envie detalhes sobre 
o(s) programa(s) e os recursos necessarios (SLOM, 
16K, etc.) para MICRO BITS, Caixa Postal 12.464, 
04798 - SÃO PAULO - SP. 





PROCURA-SE micro ZX80 (ou similar) em bom estado. 
Informaçoes para MICRO BITS, Caixa Postal 12.464, 
04798 - Sao Paulo-SP. 


TROCO programas para NE-ZBPPP e TKB2-C . Andre 
Zielasko, Emancipação 403 sala 2, TRAMANDAI - R$ 
CEP 95590. 


- VENDE-SE micro NE-Z8000 com expansao de 16K - ver 


com ARI TENORIO DE ALENCAR, R. Gaspar Fernandes 
54, Vila Monumenta, 01549 - Sao Paulo - SP. Tel: 
(011) 273-8742 


2 Encontro Regional dos Usuários 
de Microcomputadores 


À revista INTERFACE, com o apoio 
do grupo de micro da TELERJ e do projeto CIRANDA 
da EMBRATEL, esta promovendo este primeiro encon- 
tro de usuarios de microcomputadores no Rio de Ja- 
neiro, nos dias 3, 10, 17 e 24 de setembro , no 


Clube de Engenharia do Rio de Janeiro. 


Informaçoes e inscrições devem ser 
feitas no CBI - Centro Brasileiro de Informatica, 
Av. Passos 115 sala 215, Rio de Janeiro - RJ.Tel: 
(021) 233-1123/392-8965. 


Parabens a INTERFACE pela inicia- 
tiva! Justamente o que precisamos - agora o usua- 
rio tem vez, e nao e mais uma cifra nas 


de vendas de microcomputadores! 


- Sera que o 2º encontro vai ser em 
Sao Paulo? - E quando? Ha muita gente aqui que gos- 
taria de participar mas não tem possibilidade de 


viajar para Rio de Janeiro 4 sabados consecutivos. 


No dia 24, DÉLIO SANTOS LIMA, ca- 


nhecido autor de tres livros sobre microcomputado- 


res da linha Sinclair ZX81, dara uma palestra in- 
titulada "OS PEQUENOS MICROCOMPUTADORES BRASILEI- 
ROS TK E CPM. 


Fomos convidados para participar 
do debate que segue a palestra, e esperamos ver 
nossos amigos do Rio (e de outros estados tambem, 


claro!) que participarem deste encontro. 


Consideramos este evento uma boa 
oportunidade para discutirmos os problemas dos u- 
suários, e qualquer comentário de vocês ( sem os 
quais o nosso Clube e jornal seriam insignifican- 
tes) que desejam expor aos fabricantes serao bem- 


vindos. Mas nao deixem para depois. Escrevam ja! 
IMPORTANTE “et 


A taxa de inscrição normal e de 
Cr$50.000 (cinquenta mil cruzeiros). Podemos ofe- 
recer um deconto especial de 20% para os associa- 
dos do CLUBE NACIONAL DOS TK/NE/SINCLAR. Os inte- 
ressados devem enviar-nos um envelope selado e en- 
dereçado - ver o nosso endereço em !Corresponden- 
cia!! - para receber um formulario de inscrição 
Nao esqueça de indicar o seu numero de registro 
(no canto direito superior da etiqueta de endere- 
camento do jornal). No caso de ser um associado 
novo, e ainda não possui este numero, informe a 
data aproximada que nos enviou a ficha de assina- 
tura. Ainda não e associado? Faça a sua assinatu- 


ra agora e saia ganhando! 


SS 
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